home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / callback.zip / CALLBACK.CMD next >
OS/2 REXX Batch file  |  1988-03-06  |  5KB  |  103 lines
  1. ; CALLBACK.CMD
  2.  
  3. ; A COMMAND FILE TO USE PROCOMM HOST MODE ON SINGLE PHONE LINE WITHOUT
  4. ; TYING UP THE LINE FOR THAT ONE PURPOSE.   MODEM USED MUST SUPPORT EXTENDED
  5. ; RESULT CODES ALA "HAYES 1200".
  6.  
  7.  
  8. TRACE ON                                   ; AS AN OPTION - SET "TRACE ON"
  9.                                            ; HERE TO CHECK THE PROGRESS OF
  10.                                            ; THE FILE AS IT EXECUTES
  11.  
  12. START:
  13.         TRANSMIT "ATZ!"                    ; THIS PART OF THE CMD FILE
  14.         SET BAUDRATE 1200                  ; FIRST RESETS THE MODEM TO
  15.         SET DATABITS 8                     ; DEFAULT SETTINGS AND THEN
  16.         SET PARITY NONE                    ; CHANGES THEM TO THE DESIRED
  17.         SET PORT COM1                      ; ONES.  THIS ASSURES A BASE-
  18.         SET STOPBITS 1                     ; LINE TO SET YOUR MODEM FROM
  19.  
  20.  
  21.         TRANSMIT "ATM0Q0X4V1!"             ; THIS LINE IS CRUCIAL  -  IT
  22.                                            ; SETS THE MODEM TO GIVE THE
  23.                                            ; EXTENDED RESULT CODES AS WELL
  24.                                            ; AS ANY OTHER BELLS AND
  25.                                            ; WHISTLES YOU MIGHT WISH.
  26.                                            ; THE MINIMUM TO USE IS "ATX4!"
  27.                                            ; TO SET UP THE EXTENDED RESULT
  28.                                            ; CODES FROM YOUR MODEM BACK TO
  29.                                            ; PROCOMM
  30.  
  31. RING1:
  32.  
  33.         WAITFOR "RING"  6000               ; THIS WAITFOR TIME IS NOT
  34.            IF WAITFOR                      ; CRITICAL - BUT HAVING A
  35.                GOTO RING2                  ; LONG ONE IS HANDY
  36.            ELSE
  37.                GOTO RING1
  38.  
  39. RING2:
  40.         WAITFOR "RING" 10                  ; THESE WAITFOR TIMES ARE MORE
  41.                                            ; IMPORTANT.
  42. RING3:                                     ;
  43.         WAITFOR "RING" 10                  ; THE BASIC IDEA IS THAT
  44.            IF WAITFOR                      ; IF THE MODEM SENDS A "RING"
  45.                 GOTO ANSERMACH             ; RESULT CODE TO PROCOMM
  46.            ELSE                            ; TWICE WITHIN A SHORT PERIOD OF
  47.                 GOTO SECNDRNG1             ; TIME THE FILE "ARMS" ITSELF.
  48.                                            ; IF IT IS ARMED, IT WILL ANSWER
  49.                                            ; IN HOST MODE THE NEXT TIME IT
  50.                                            ; GETS A RING RESULT SENT TO IT.
  51.                                            ; (BUT ONLY AFTER A 10 SECOND TIMER
  52.                                            ; HAS MADE SURE THE NEXT "RING"
  53.                                            ; CODE IS FROM A SECOND PHONE CALL).
  54.                                            ; MORE THAN TWO RINGS AT THIS
  55.                                            ; TIME AND THE FILE "UN-COCKS"
  56.                                            ; AND LETS THE ANSWERING MACHINE
  57.                                            ; TAKE OVER THE PHONE LINE AND
  58.                                            ; ANSWER ON A 3RD OR LATER
  59.                                            ; RING OF THIS FIRST CALL
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68. SECNDRNG1:                                 ; HERE THE COCKED COMPUTER WILL
  69.         WAITFOR "RING" 45                  ; ANSWER IN HOST MODE AS LONG AS
  70.            IF WAITFOR                      ; THE NEXT CALL COMES WITHIN THE
  71.                 GOTO HOSTMODE              ; WAITFOR PERIOD - ANY LONGER
  72.            ELSE                            ; THAN THAT AND IT UNCOCKS AND
  73.                 GOTO RING1                 ; STARTS OVER.  THIS WAITFOR
  74.                                            ; TIME IS ONE OF THE MOST
  75.                                            ; IMPORTANT - SO EXPERIMENT WITH
  76.                                            ; WHAT WORKS WELL ON YOUR
  77.                                            ; MACHINE.
  78.  
  79.  
  80.  
  81.  
  82. ANSERMACH:                                 ; THE IDEA HER IS TO LEAVE THE
  83.         WAITFOR "GHJ" 60                   ; CMD FILE IN IDLE UNTIL THE
  84.          IF WAITFOR                        ; ANSWERING MACHINE PICKS UP THE
  85.                GOTO RING1                  ; PHONE AND STARTS UP SINCE WE
  86.           ELSE                             ; KNOW THAT THE COMPUTER ISN'T
  87.                GOTO RING1                  ; TO ANSWER.
  88.  
  89.  
  90.  
  91. HOSTMODE:
  92.         HOST                               ; THIS IS REGULAR HOST MODE
  93.  
  94.  
  95.  
  96. RESET:                                     ; WHEN YOU ARE DONE ON LINE USE
  97.         GOTO START                         ; THE CONTROL-Z KEY COMBINATION
  98.                                            ; TO END THE HOST MODE AND
  99.                                            ; RESTART THIS COMMAND FILE AND
  100.                                            ; THE ANSWERING MACHINE WIll
  101.                                            ; STILL WORK AS WELL AS THE
  102.                                            ; COMPUTER HOST MODE
  103.